home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwtim / time_2.txt < prev    next >
Text File  |  1994-04-22  |  587b  |  27 lines
  1. // Time Format for CRYSTAL Reports (24:00 format)
  2. //
  3. // Convert MS ACCESS Time to Whole Number
  4. NumberVar TotWholeNbr:={Time.Time}*100000000;
  5.  
  6. // Calculate Hours
  7. NumberVar Hours:=Truncate(TotWholeNbr/4166666.64);
  8.  
  9. // Calculate Minutes
  10. NumberVar Mins:=Truncate((TotWholeNbr-(Hours*4166666.64))/69444.444);
  11.  
  12.  
  13. // Set Hour String
  14. If Hours<10 Then
  15.   StringVar HH:="0"+ToText(Hours)
  16. Else
  17.   StringVar HH:=ToText(Hours);
  18.  
  19. // Set Minute String
  20. If Mins<10 Then
  21.   StringVar MM:="0"+ToText(Mins)
  22. Else
  23.   StringVar MM:=ToText(Mins);
  24.  
  25. // Output Time
  26. HH[1 to 2]+":"+MM[1 to 2];
  27.